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Facility: RMS 
Abstract: 


This module contains routines that scan: 

(1) the user XAB chain and examine FAL's capabilities to determine 
which DAP Extended Attributes messages should be requested to be 
returned by the remote FAL. 

(2) the user Name Block and examine FAL's capabilities to determine 
if a DAP (resultant) Name message should be requested to be 
returned by the remote FAL. 


Environment: VAX/VMS, executive mode 
Author: James A. Krycka, Creation Date: 05-JUN-1979 
Modified By: 


v03-006 JAK0119 of 16-JUL-1983 
Scan soe ‘ieuineitea XAB and save the JOP field for use by 
NISCREA TE. 
v03-005 ab J A Krycka 29-JUN-1983 
Support probe of estented Protection XAB. 
v03-004 KRMO0110 K Malik 23-May-1983 


Update to eae DAP V7.0 spec. 
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v03-003 KPLOO01 Peter Lieberwirth 23-May-1983 
Fix branch destinations that are out of range. 


v03-002 KRM0050 Malik 02-Jun-1982 
Fix minor bug in KNISSCAN _NAMBLK. 
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v04-000 CLARATIONS ey 7 98397508 RMS .SRCINTOSCNXAB.MAR; 1 . (3) | 
66 -SBTTL DECLARATIONS 
re ; 
$ ; Include Files: 
09 fo 
0 Me SDAPCNF DEF ; Define DAP Configuration message 
4 7 SDAPACCDEF ; Define DAP Access message 
000 74 $F ABDEF : Define File Access Block symbols 
0000 75 SIFBDEF 3; Define IFAB symbols 
0000 76 SNAMDEF ; Define Name Block symbols 
44 77 NWADEF ; Define Network Work Area symbols 
00 78 SXABDEF ; Define symbols common to all XABs 
0000 79 $SXABALLDEF 3; Define Allocation XAB symbols 
0000 80 SXABDATDEF ; Define Date and Time XAB symbols 
0000 81 $XABFHCDEF ; Define File Header Char symbols 
48 Ht SXABKEYDEF 3; Define Key Definition XAB symbols 
000 8 $SXABPRODEF : Define Protection XAB symbols 
0000 84 SXABRDTDEF ; Define Revision Date/Time XAB symbols 
0000 85 $SXABSUMDEF ; Define Summary XAB symobls 
0000 86 ; SXABTRMDEF ; Define Terminal XAB symbols 
0000 87 ; $SXABCXFDEF : Define FAB Context XAB symbols 
0000 88 ; SXABCXRDEF ; Define RAB Context XAB syanere 
0000 89 $XABJNLDEF ; Define Journal XAB symbols 
0000 90 | 
0000 91 ; 
0000 9¢ : Macros: | 
0000 93 ; 
0000 94 ; None | 
0000 95 ; 
0000 96 ; Equated Symbols: 
0000 (97: | 
0000 98 
0000 99 ASSUME NWA$Q_FLG EQ 0 | 
0000 100 
0000 101; 
0000 19¢ ; Own Storage: 
0000 103; 
0000 104 ; None 
0000 105 ; 
} 
| 


SO re ee ena ee Sy Ses aa Nes: 


NTOSCNXAB SCAN XAB CHAIN 16-SEP-1984 00:07: AX/VMS Macro V04-00 P 
v04-000 NTSSCAN_XABCHN = SCAN XAB CHAIN mitt 3 $f 89 LRMS SRCIN TOSCNXAB. MAR; 1 mesh 


-SBTTL NTSSCAN_XABCHN = SCAN XAB CHAIN 
¥ NTSSCAN. XABCHN = scans the user XAB chain and examines FAL $s capabilities 
td determine which DAP Attributes and Extenaed Attributes messages to 
request the remote FAL to return. It also verifies that all Allocation 
XABs found are chained sequential Ly and that all Key Definition XABs 
found are chained sequentially (i.e., they form sub-chains). 
The message request mask is returned in R2. 
Calling Sequence: 
BSBW NTSSCAN_XABCHN 


Input Parameters: 


R6 Close operation flag 
R7 NWA (=DAP) address 
R8 FAB address 

R9 IFAB address 

R10 IFAB/FWA address 

R11 Impure Area address 


Implicit Inputs: 


r ALL, DAT, FHC, JNL, KEY, PRO, RDT, and SUM XABs 
DAPSO. SYSCAP bits KEYXAB, ALLXAB, SUMXAB, TIMXAB, PROXAB, 
CHGTIMCLS, CHGPROCLS 


Output Parameters: 


RO Status code (RMS) 
R1 Destroyed 

R¢ Message request mask 
R3-R5 Destroyed 


Implicit Outputs: 
NWASB_ALLXABCNT 


NWASB_KEYXABCNT 
NWASW~ JNLXABJOP 


So 
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NWASL_ SUMXABADR 
Completion Codes: 
Standard RMS completion codes 
Side Effects: 
User XABs are probed for writeability. 
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v04- NTSSCAN_XABCHN = SCAN XAB CHAIN eset 90:97:89 RMS .SRCINTOSCNXAB.MAR; 1 . 3) 
164 ; 
165 ;-- 
166 
167 NTSSCAN_XABCHN: : ; Entry point 
198 $ZERO_FILL- ; Zero XAB scan results block 
18 DST=NWAST_SCAN(R7)= ; Address of block 
170 SIZE=#NWASC_SCAN ; _Length of block 
A 171 ; Zero R2 (request mask) as side effect 
OOA 176 : of executing a MOVCS instruction 
24 a DO OOOA 17 MOVL FABSL_XAB(R8) ,R3 ; Get first XAB address in chain 
0 11 000 174 BRB CHKXAB 3 
4 175 
1 176 3+ 
it ie ; Process next XAB in the chain. 
3 
0010 179 ; Note: XABs not supported by DECnet (if found in the XAB chain) will be 
0010 139 3 ignored. 
0010 181 ;- 
0010 136 
0010 18 ASSUME XABSC_DAT EQ 18 
0010 180 ASSUME XABSC_PRO EQ 19 
0010 185 ASSUME XABSC_ALL EQ 20 
0010 186 ASSUME XABSC"KEY EQ 21 
0010 187 ASSUME XABSC_SUM EQ 22 
0010 188 ASSUME XABSC_FHC EQ 29 
0010 189 ASSUME XABSC_RDT EQ 30 
0010 190 ; ASSUME XABSC_TRM EQ 31 ; Not supported for network use 
0010 191; ASSUME XABSC_CXF EQ 3 3; Not supported for network use | 
0010 1398 ; ASSUME XABSC_CXR EQ ; ; Not supported for network use | 
0010 19 ASSUME XABSC_JNL EQ 34 3; Not supported for network use — 
0010 194 ; BUT will be processed to obtain 
BO10 132 ; JOP field for use by NTSCREATE 
54 53 00 potg 197 NXTXAB: MOVL R3,R4 : Save address of current XAB in chain 
04 A3 if 001 198 MOVL XABSL_NXT(R3) ,R3 3; Get address of next XAB in chain 
30 13 0017 #£«°199 CHKXAB: BEQL EXIT ; Branch if none | 
8013 00 IFNORD #XABSL_NXT+#+4,(R3),- ; Probe for readability thru NXT field | 
019 01 ERRXAB,IFBSB_MODE(R9) ; of XAB and branch on failure 
ED AF 9F 002 8 PUSHAB B“NXTXAB : Push return address on stack 
805 0 $CASEB SELECTOR=XAB$B_COD(R3)- ; Dispatch to routine to process: 
99 04 BASE=#XABSC_DAT- : 
0 05 DISPL=<- 3 
00 ae DATE_TIME- 3; XABDAT 
8 8 PROTECTION- 3; XMABPRO 
0 8 ALLOCATION- ; XKABALL 
00 09 KEY_DEFINITION- : XABKEY | 
09 10 SUMMARY~ ; XABSUM | 
0 11 ERRCOD- : Invalid XAB type 
00 19 ERRCOD- : Invalid XAB type 
0 1 ERRCOD- : Invalid XAB type 
0 14 ERRCOD- : Invalid XAB type 
0 15 ERRCOD- : Invalid XAB type 
00 1g ERRCOD- : Invalid XAB type 
0 1 FILE_HEADER- ; XABFHC 
18 REV BATE_TIME- 3; XABROT 
19 EXIT- ; Ignore XABTRM 
20 EXIT- ; Ignore XABCXF 
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v04 NTSSCAN_XABCHN = SCAN XAB CHAIN $7 SE 3be a, RMS.SRCINTOSCNXAB.MAR; 1 . (&) 
1 EXIT= 3 sqnere XABCXR 
§ JOURNAL ING- 3 XABJNL 
4 i 
rh ; ae it h | 
3; Ex aths. 
049 5 Le 
049 8 
049 EXIT: RMSSUC ; Return success 
05 et 0 3; Exit with RMS code in RO | 
0? BA 4D 1 ERRCOD: POPR #*M<RO> ; Discard return address 
et ; RMSERR COD ; Invalid XAB type code 
10 11 54 SETSTV : 
01 BA 036 4 ERRIMX: POPR #*M<RO> : Discard return address 
05 5 RMSERR IMX ; Duplicate XAB or XABs are not dense 
07 11 0050 $ SETSTV 3 
03 BA OO5F ERRXAB2:POPR #*M<RO,R1> 3; Discard return addresses 
061 $ ERRXAB: RMSERR XA ; XAB too short or not accessible 
Oc AB «653 «600 0066 SETSTV: MOVL R3,FABSL_STV(R8) ; Return XAB address in STV field 
05 Q06A 40 RSB : Exit with RMS code in RO 
Bees 41 
068 g 3+ 
ss re 3; This routine checks the control block for correct length and writeability. 
0068 45 
0068 $6 VALIDATE_XAB: ; Entry point 
50 01A3 9A 0068 4 MOVZBL XABSB_BLN(R3),RO 3 Get stated Length of block 
51 50 D1 O06F 48 MPL RO,R1 3; Compare against expected Length 
EB iF 0072 249 BLSSU  ERRXAB2 : Branch if too smal 
0074 50 IFNOWRT RO, (R3) ,ERRXAB2,- : Probe for writeability and branch on 
0074 51 IFBSB_MODE(R9) 3; _failure 
05 0078 26 RSB : Exit 
007¢ 5 
007C¢ 54 3+ 
007C 55 ; This routine handles the Date and Time XAB. 
007C 56 ;:- 
007C 57 
007C 58 DATE_TIME: ; Entry point 
51 24 9A O07C 59 MOVZBL #XABSC_DATLEN_V2,R1 ; Get minimum (i.e., V2) length of XAB 
EA 9 007F 60 BSBB VALIDATE_X : Check Length and accessibility 
0104 C7 OD Boas 61 TSTL NWASL_DATXABADR(R7) : Declare error as this is a duplicate 
CF is 0085 6 BNEQ E 3; _XAB 
0106 C7 +53 «~D 087 6 MOVL R3,NWASL_DATXABADR(R7) ; Save address of Date and Time XAB 
1A ET sts 64 BBC #DAP$V XAB,= ; Branch if Date and Time message is 
07 28 A? E 265 DAP$Q_SYSCAP(R7),10$ =: not supported by partner 
04 56 E8 0091 06 BLBS 3; This XAB is not an input on close 
094 6 SSETBIT #DAPSV_DSP_TIM,R2 : Update request mask 
05 8 $8 10$: RSB : Exit 
099 § 
99 270 ;+ - | 
99 71 ; This routine handles the Protection XAB. 
099 1 :- 
099 7 
99 574 PROTECTION: ; Entry point | 
51 10 9A 0099 275 MOVZBL #XABSC_PROLEN_V3,R1 ; Get minimum (i.e., V3) Length of XAB | 
C0 1 9C 6 BSBB VAL x ; Check Length and accessibility | 
0110 C D 9E 7 TSTL NWASL_PROXABADR(R7) : Declare error as this is a duplicate 
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BBC #OAPSV CHGPROCLS = 
DAP$Q_SYSCAP(R?) .20$ 
$: SSETBIT #DAPSU_DSP_PRO,R2 


: This routine handles the Allocation XAB 
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ALLOCATION: ; 
MOVZBL #XABS$C_ALLLEN,R1 : 

SBB ss VALIDATE _XAB F 

INCB NWASB_ALCXABCNT(R7) ; 

CHB NWASBALLKABCNT(R7) , 1 : 

CMPB = XABSB_COD(R4) , #XABSC_ALL: 

BEQL 208 ; 

BRW ERRIMX : 

10$: MOVL  R3,NWASL_ALLXABADR(R7) ; 
BBC #DAPS$V_ACLXAB,- : 
DAP$Q_SYSCAP(R7),20$ =: 

SSETBIT #DAP$V_DSP_ALL,R2 ; 

20$: RSB 3 


s¢ 

; This routine handles the Key Definition 

KEY DEFINITION: 
MOVZBL #XABSC_KEYLEN_V2,R1 

VALIDATE XA 

INCB NWASB_KEYXABCNT(R7) 

CMPB NWASB_KEYXABCNT(R7) ,#1 


BEQL 
CMPB XABSB_COD(R4) , #XABSC_KEY 
BEQL 0s 
BRW ERRIMX 

10$: MOVL R3,NWASL_KEYXABADR(R7) 
BBC #DAPSV_KEYXAB 


V_KEYXAB, = 
DAP$Q_SYSCAP(R7) ,20$ 
SSETBIT #DAPSO_DSP_KEY,Re 


20$: 


3? 
3; This routine handles the Summary XAB. 


SUMMARY : 
MOVZBL #XABSC_SUMLEN,R1 
BSBW VALIDATE Xx 
TSTL NWASL_SUPXABADR(R7) 
BNEQ ERRIMZ1 
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BNEQ ERRIMX XAB 

MOVL R3,NWASL_PROXABADR(R7) Save address of Protection XAB 

BBC #DAPSV_PROXAB,- Branch if Protection message is 

DAP$Q_SYSCAP(R7) ,20$ not supported by partner 
BLBC An additional system capabilities 


check is required if this is a 
change operation 

Vodate request mask 
x 


ary point 
Get length of XAB 
Check length and accessibility 
Increment XAB counter 
Branch if this is first 
Allocation XAB in chain 
Check previous XAB in chain; 
it must also be an Allocation XAB 
else this XAB is out of order 
Save address of first Allocation XAB 
Branch if Allocation message is 
not supported by pertaer 


; Update request mas 
Exit 


XAB. 


Entry point 

Get minimum (i.e., V2) Length of XAB 
Check Length and accessibility 
Increment XAB counter 

Branch if this is first 
Key Definition XAB in chain 
Check previous XAB in chai 


ain; 
it must also be a Key Definition XAB 


else this XAB is out of order 
Save address of first Key Def XAB 


Branch if Key Definition message is 


not supported by pertner 


Update request mas 
Exit 


Entry point 
Get len 


gth of XAB . 
Check Length and accessibilit 


y 
Bech are error as this is a duplicate 


| 
| 


| 
| 
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0118 c7?—s5 DO 0117 5 MOVL R3,NWASL_SUMXABADR(R7) ; Save address of Summary XAB 
18 =#©€1 O11C $ BBC #DAPSV_SOMXAB, - ; Branch if Summary message is | 
04 28 A 15 DAPSQ_SYSCAP(R7),10$  : not supported by partner 
1 8 SSETBIT #DAPSU_DSP_SUM,RO : Update request mas | 
05 0125 9 108: RSB 3 Exit 
ga 
34 
: ri} ; This routine handles the File Header Characteristics XAB. 
126 44 ; Note: The File Header Characteristics XAB is supported in DAP through the 
126 45 ; DAP Attributes message. Thus there is no system capabilities check 
1 ? +8 3 associated with it. 
2 47 ;- 
126 48 
4 6 49 FILE_HEADER: 3 Entry point 
51 gc 9A 0126 50 MOVZBL #XABSC_FHCLEN,R1 3; Get Length of XAB 
FFSF 630 0129 51 SBW VALIDATE_XA 3: Check Length and accessibility 
0108 ¢7 =—~»D5 4 C 26 TSTL NWASL_FHUXABADR(R7) ; Declare error as this is a duplicate 
3A 612 «20130 5 BNEQ ERRIMR1 3: XA | 
0108 c7. «~53~—si0 Bi 36 54 MOVL R3,NWASL_FHCXABADR(R7) ; Save address of File Header Char XAB 
ae 55 SSETBIT #DAP$V_DSP_ATT,R2 ; Update request mask 
05 0138 56 RSB ; Exit 
013C 57 
Bit 58 3+ ye ; 
Bia 2 ; This routine handles the Revision Date and Time XAB. 
013C 61 ; Note: Both the Date and Time XAB and the Revision Date and Time XAB are 
Ott 6¢ : supported in DAP through the DAP Date and Time message. 
013C 64 
013¢ 65 REV_DATE_TIME: 3 Entry point 
51 14 QA O013C 366 MOVZBL #XABSC_RDTLEN,R1 ; Get length of XAB cet 
FF29. 30 O13F 67 BSBW VALIDATE_X ; Check Length and accessibility 
0114 C7. DS) «(0142 68 TSTL NWASL_RDTXABADR(R7) 3; Declare error as this is a duplicate 
g 12 0146 69 BNEQ ER . a 
0114 C7 3 00 0148 70 MOVL R3,NWASL_RDTXABADR(R7) ; Save address of Rev Date and Time XAB | 
1A = ET «0140 71 BBC #DAPS$V_TIMXAB,- ; Branch if Date and Time message 
OC 28 A7 O14F rg DAPSQ_SVSCAP(R7),20$ ; not supported by partner 
05 56 «ED 818 7 BLBC R6. ; An additional system capabilities 
2B SCEW: «OO015 74 BBC #DAP$V_CHGTIMCLS,- : check is required if this is a 
04 28 A7 0157 75 DAP$Q_SYSCAP(R7) ,20$ 3 change operation | 
Q1dA 376 108: SSETBIT #DAPSU_DSP_TIM,R2 ; Update request mask | 
05 O15E 77 208: RSB ; Exit 
Bat 4 
15F 79 3+ 
O15 39 3; This routine handles the Journaling XAB. 
15F B ; Note: This XAB is not supported for network use--it will be ignored unless. 
015F : the journaling options field is non-zero on create. Consequently, this 
Bi a : 3 routine saves the JOP field in the NWA for use by NTSCREATE. 
15F § 
15F JOURNAL ING: 3 Entry point 
51 CA O1SE BB MOVZBL #XABS$C_JNLLEN,R1 : Get length of XAB | 
FF $ 30 ie SBW VAL }DATE X ; Check Length and accessibility | 
08 A BO 016 0 MOVw XABS$W_JOP(R3) ,- ; Save journaling options value in NWA 
O11E C7 168 391 NWASW~JNLXABJOP(R7) : | 


_—-— _ 


Hn 6 
VOus000 NISSCANCKABCHN = SCAN XAB CHAIN More Ee robe 98:37:08 ae yes Mace e Ntaacman;1 «= Pa8e C8, 


05 bie 338 RSB ; Exit 
FEE? 31 016C 4 ERRIMX1:BRW ERRIMX ; Branch aid 


Sen Fe eee eS een Sys See a 


6 
NTOSCNXAB SCAN XAB CHAIN SEP-1984 00:07: AX/VMS Macro V04-00 Page 
v04-000 NTSSCAN_KEYXAB = SCAN KEY DEFINITION XAB a eet 7 98: ti $8 RMS .SRCINTOSCNXAB.MAR; 1 . 
98 ~SBTTL NTSSCAN_KEYXAB = SCAN KEY DEFINITION XAB 
-SBTTL NTSSCAN-ALLXAB = SCAN ALLOCATION XAB 
$9 : NTSSCAN ig peg eeene a specific Key Definition XAB without scanning the 


re XAB ch 
: NTSSCAN any he - scans ’ specific Allocation XAB without scanning the 
entire XAB chain 


Calling Sequence: 


BSBW NTSSCAN_KEYXAB 
BSBW NTSSCAN_ALLXAB 


Input Parameters: 
R6 Allocation or anid Definition XAB address 
R7 NWA (=DAP) addre 
R8 FAB address 
R9 IFAB address 
R10 IFAB/FWA address 
R11 Impure Area address 
Implicit Inputs: 
None 


Output Parameters: 


RO Status code (RMS) 
R1 Destroyed 
R3 Destroyed 


Implicit Outputs: 
None 
Completion Codes: 
Standard RMS Completion codes 
Side Effects: 
User XAB is probed for writeability 


OO NINA AAAAAAAAAAAA AAA AA AA AAA AMAA AAAAAAA AAA AA AAA AAA AMAO 
Fe ot at at at at a UUM UMRMUARMAUAUAUMUAUUAUeUUeAUAUtrettttrrAttdteaenaeee 


NTSSCAN_KEYXAB:: 3 Entry point 
51 40 a SA MOVZBL #XABS$C -KEYLEN_V2,R1 ; Get minimum (i.e., V2) Length of XAB 
3).C«éA#zW BRB COMMON” SCAN 3; Join common code 
NTSSCAN_ALLXAB:: 3 Entry point 
51 20 QA 4 MOVZ #XABSC_ALLLEN,R1 ; Get length of XAB 
447 COMMON_SCAN: ; Common code 
53 56 00 448 MOVL ; Get address of XAB to probe 
449 IF NORD Te ABSL NXT#+4,(R3),= : Probe for readability thew NXT field 
4 9 10$, 1FB$B_MODE (ROS ; _of XAB and branch on failure 
50 01A3 QA 4 MOVZBL KABeB. BLNTRS) RO ; Get stated Length of block 
51 50 ODI 452 CMPL ; Compare against expected length 


~— 


8B 7 


NTOSCNXAB SCAN XAB CHAIN 16-SEP-1984 00:07: AX/VMS Macro V04-00 Page 11 
v04 NTSSCAN_ALLXAB = SCAN ALLOCATION XAB ety 7 98397505 FRMS SRCINTOSCNXAB OMAR: 1 (4) 
0B iF 0189 453 BLSSU 198 ; Branch if too small 

1 454 IFNOWRT RO,(R3),10$,- ; Probe for writeability and branch on 

1 455 1FBS$B_MODE (R9) : failure 

1 4 § RMSSUC 3; Return success 

9 19 45 RSB ; Exit 

: FEC8 1 0196 458 10S: BR ERRXAB ; Failure 


NTOSCNXAB SCAN XAB CHAIN 16-SEP-1984 00:07: AX/VMS Macro V04-00 
v04=000 NTSSCAN_NAMBLK = SCAN NAME BLOCK “SEP-1984 98:34:09 LRMS SRCINTOSCNXABLMAR; 1 


460 ~-SBTTL NTSSCAN_NAMBLK = SCAN NAME BLOCK 


2 
2 
o 


pot 
465 ; NTSSCAN_NAMBLK = scans the user Name Block and checks FAL's capabilities 
to determine if a DAP (resultant) Name message should be requested 


? to be returned by the remote FAL. 

? An updated message request mask is returned in R2. 
8 Calling Sequence: 
f BSBW NTSSCAN_NAMBLK 

u Input Parameters: 

7 Re Message request mask 

7 R NWA (=DAP) address 

7 R8 FAB address 

7 R9 IFAB address 

7 R10 IFAB/FWA address 

§ R11 Impure Area address 


Implicit Inputs: 
User Name Block 
Output Parameters: 


MOO ONAU EWN O OONOAUE WN OOONOM 


RO Status code (RMS) 
R1 Destroyed 
R2 Updated message request mask 


Implicit Outputs: 
None 
Completion Codes: 
Standard RMS Completion codes 
Side Effects: 
User Name Block is probed for writeability 


Se Se Se Se Ge Se Ge Ge Ge Ge Ge Se Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Se Se Se Se Se Se 


NTSSCAN_NAMBLK: : Entry point 
PUSHR 


PPP YS FP OOOO OO OOO OOOO OOOOOOOOOOOOOVOODOOODOWOOOODOOOCODOWODOOOOONO 
PRM Ow SOGGOGOGOOOOOOOOSOSOSSS SOSH O OOOO OOOO OOOO ooo ODS 


PUPPY PVPS VSVSUSVSVSTSISISISIS E™ Be BS BE EPP PPP PPP PPP PPP PPP PPLE EE 
tt td =I MOHOOOODOOOOCOOO0O0O0O00O0 0 OW 00 0000000000 


AUS APR CO OODNAMUE WN OOONOUS 


00CO 8F 8B #*M<R6,R7> ; Save registers used 
57 28 A8 0° MOVL FABSL_NAM(R8) ,R7 ; Get Name block address 
|) wee BEQL ; Branch if none : 
FESA’ 30 BSBW RMSCHKNAM ; Check Name block validity 
1350 €9 BLBC P ; Branch on error 
04 A? Re TSTL NAMSL_RSA(R7) ; Check for resultant string address 
ge ? BEQL 10$ ; Branch one 
OOCO 8F BA POPR #*M<R6,R7> ; Restore registers 
28 «C#=# BBC #DAPS$V_NAMMSG,- : Branch if partner does not support 
09 28 A7 DAPSQ_SYSCAP(R7),20$ : Name message 
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dD 7 
NTOSCNXAB SCAN XAB CHAIN 16-SEP-1984 00:07: AX/VMS Macro v04-00 Page 
v04 NTSSCAN_NAMBLK = SCAN NAME BLOCK et 99:97:88 LRMS  SRCINTOSCNXAB. MAR: 1 . 
187 17 SSETBIT #DAPSV_DSP_NAM,R2 $ Request Name message 
05 0188 18 ; Exit 
OOCO 8F Ba 18 19 10$: POPR #*M<R6,R7> ; Restore registers 
5 O1C 0 208: RSB ; Exit 
01C1 1 
01C1 522 


END ; End of module 


NTOSCNXAB 
Symbol table 


$$.PSECT_EP 
$SCOUN 


SSRMS_UMODE 
ALLOCATION 
CHKXAB 


COMMON_ SCAN 
DAPSB_ACCFUNC 
DAP$B_ACCOPT 
DAPS$B_DECVER 
DAP$B_ECONUM 
DAP$B_F AC 
DAPS$B_FILESYS 
DAP$B_OSTYPE 
DAP$B_SHR 


DAPSM_MSE 
DAPSM_TMP1$ 
DAP 


LLXAB 
DAPS$V_CHGPROCLS 
DAP$V_CHGTIMCLS 


SCAN XAB CHAIN 


0000000 
88 11 
QOQO1A 
Se 
Sit 
000 pag R 
44h 17 R 
000 Hf R 
0000004 
Sty 
St 
44 Sk 
0000004 
444 94 
0000004 
00000046 
00000048 
00000044 
00000200 
4444404 
0000001 
00000010 
000000C0 
Q000F C00 
00000044 
00000050 
00000028 
00000017 
0000002C 
00000028 
00000002 
00000000 
00000001 
00000008 
00000005 
00000003 
00000004 
00000016 
00000028 
4 4 9d 
3 
Ss 
0000004C 
Q0007C R 
000004D R 
44 4 Fg R 
SH 
00000St R 
st ed R 
sii 
0000024 
0000126 R 


ooo 


Oooooooo 
ond and anf and and and ad 


Oo 
— 


"SSEp=1986 Voce! 


1FB$B_MODE 


NWASK— 
NWASL-ALLXABADR 
NWASL-DATXABADR 
NWASL DEV 

NWASL~FHCXABADR 
NWASL~KEYXABADR 
NWASL-MSG_ MASK 
NWASL ~PRORABADR 
NWA$L-RDTXABADR 
NWASL~SAVE_FLGS 


NWASQ_LNODE 
NWASQ~LOGNAME 
NWASQ_NCB 
NWASQ_RCV 
NWASQ_ SAVE DESC 
NWASQ"-XLTBOF1 


N 
NWA$T~INODEBUF 
NWAST-ITM_ATIR 
NWAST~ITM~END 


OOoOOCOCOoOooQoooQooooooooooooooooooooooS OOO SCOOOOOOOOOOOOOOOSOoOoOOoO CO 


t 


AX/VMS Macr 
RMS .SRCINTOSCNXAB.MAR; 1 


oo°oo 
ashubabead atad 


CDOOM QDOQNMDWONOOMOAA OO “ODO NOMS 


FOMOOM DEMO LNODWN OOO FOLWNWDN WD LOL ANWO LOCCOONESSONIMNDOOOO US'S 


o v04-00 


Page 14 | 
, (5 


NTOSCNXAB 
Symbol table 


NWASW_FIL OFF 
UASY ~ JNLRABJOP 
NXTXAB 


SUMMARY 
VALIDATE XAB 
XAB$B_BLA 


XABSC_ALL 
XABSC_ALLLEN 
XABS$C_DAT 

KABSC ~DATLEN_V2 

$C_FH 

KABSC” ag 
KABSC ye 
KABSC “pagten v2 
1B PROLEN_V3 
tte ROTLEN 
XABSC— = SUALEN 
XABSL_N 

KABSW_ NOP 


PSECT name 


. ABS oe 
NF SNE TWORK 
SABSS 


SOOoooooooooooooo 


SCAN XAB CHAIN 


DWOMMOM PVOOTOOOCVONOWO 


oOOoooooooo 
Dww 


0000013¢ 


Reekekee 
RReRRHEE 
Reeeeene 
grekeeke 


SOOoOoooOoOoOooooo 


SOOoooooooooooooooooo 
C0022 333 8 2WNN NN 


SOOoOoOoOoOOOOSoOooOoOooooO 
WEOAPLMOWOMOMNIOS £SVNOFS 


oo 


Allocation 


0000000 
00001C1 
00000800 


( 


(2 


"SrSEP=19B6 fo04 207 


AX/VMS _M 
RMS. SRCIN 


o V04-00 
OSCNXAB. MAR; 1 


Ooooooceco°oo 
3 


PSECT No. Attributes 


-») 00 ¢ QO.) NOPIC USR CON ABS LCL poet te NOEXE NORD arard NOVEC BYTE 
16 te GBL NOSHR EXE RD NOW 


WRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC BYTE 


. PIC USR CON REL 
2.) NOPIC USR CON ABS 


Page ' 


NTOSCNXAB SCAN XAB CHAIN ot i 138% 90 +14 +06 AX/VMS Macro v04-00 
VAX-11 Macro Run Statistics 984 RMS.SRCIN TOs SCNXAB.MAR; 1 


tern nen mene eee wee een ewe eet 


; Per formance indicators ! 


See nemo moan quanenennnet 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 0:00:00. 0:00:01.05 
pounens processing 128 0:00:09-80 00:09: 4:32 
334 0:00:1 18 0:00: $75 
Syabol table sort ; if f 4+ 00:00: B44 
id Perr: ; 10:00:18  00:00:00:38 
Psect synopsis output 1 0:00:00.0 00:00:00.02 
Cross-reference output 9 87002099 Pa eo 
Assembler run totals 63 0:00:17.1 00:00:53.51 


The working set Limit was 1500 pages. 

64416 bytes (126 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1101 non-local and 22 local symbols. 
522 source lines were read in Pass 1, producing 14 object records in Pass 2. 

34 pages of virtual menory were used to define 33 macros. 


eer eee eee eee mee ces eee eee ee + 


Macro Library name Macros defined 
“$522 S0UACE hs RIN MLB;1 23 

mS SEat tad SYS.OBJ) MLB; 1 2 
“$555$DUA28: $y8i 1835 TARLET. MLB; 2 4 
TOTALS (all Libraries) 29 


1326 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:NTOSCNXAB/OBJ=OBJ$:NTOSCNXAB MSRC$:NTOSCNXAB/UPDATE=(ENHS:NTOSCNXAB) +EXECMLS$/L1IB+LIB$:RMS/LIB 
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